#!/usr/bin/perl

my $str = 'I am a dog cat';

my $a = ($str =~ /a/);
print "a=$a\n";

my $b = $str =~ s/a/b/g;
print "b=$b\n";
